ftp.cs.arizona.edu/ftp.cs.arizona.edu.tar/ftp.cs.arizona.edu/icon/newsgrp/group98c.txt/000148_icon-group-sender _Fri Dec 18 08:16:09 1998.msg

Internet Message Format | 2000-09-20 | 756b

Return-Path: <icon-group-sender>
Received: (from root@localhost)
    by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id IAA08136
    for icon-group-addresses; Fri, 18 Dec 1998 08:15:54 -0700 (MST)
Message-Id: <[e-mail]>
To: [e-mail]
Date: Thu, 17 Dec 1998 20:45:05 -0700
From: Cheyenne Wills <[e-mail]>
Subject: Re: Small Icon programming problem
Errors-To: [e-mail]
Status: RO

Well... here is my humble solution...

procedure main(a)
    v := integer(a[1]) | stop("Invalid input...")
    t := table("")
    o := ""
    every c := !v do \t[c] ||:= c
    every c := !"-0123456789" do o ||:= t[c]
    write(integer(o))
end


Cheyenne Wills